﻿Imports Commander_Wars.Spieletools
Public Class KOSabaki
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "SABAKI"
        Armee = Armeen.AC.ToString
        Musik = "Sabaki"
        Bild = GetBildID()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
                Gaben(1) = Gaben(0)
            Case CommanderWarsGameModi.AdvanceWars2
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDS
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case Else
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
        End Select
        KORange = 4
        KOname = Objektverwalter.GetKO(Bild).KOBeschreibung.Name
        KOLaden()
    End Sub

    Public Overrides Sub KOLaden()
        Lebensentzug = 0.1#
        OffensivStaerke = Nothing
        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDC Then
            'Dafuer sinkt die Feuerkraft aber drastisch
            WetterReichweitenbonus(0) = 0
        End If
    End Sub

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        OffensivStaerke = New Feuerkrafttabelle110
        Lebensentzug = 0.5#
        If OhneFunktion = False Then
            AnimationEigene("KIDGABE", 2)
        End If
        GabeEingesetzt()
    End Sub

    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWars Then
            OffensivStaerke = New Feuerkrafttabelle110
            Lebensentzug = 0.5#
            If OhneFunktion = False Then
                AnimationEigene("KIDGABE", 2)
            End If
            GabeEingesetzt()
        Else
            Lebensentzug = 1
            If OhneFunktion = False Then
                AnimationEigene("SPEZIALGABE", 2)
            End If
            GabeEingesetzt()
        End If
    End Sub

    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub
End Class

Public Class KOBeschreibungSabaki
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Sabaki"
        Fein = "Gleichheit"
        Nein = "Armut"
        Beschreibung = New String() {"Ehemalige KO von Yellow Comet,", "die eine Rebellion startete als sie den Zustand", "von Amber Corona sah."}
        Stil = New String() {"Ihre Truppen heilen sich,", " wenn sie kaempfen."}
        Gabebeschreibung = New String() {"Ihre Truppen erhalten noch mehr leben."}
        SpezialgabeBeschreibung = New String() {"Ihre Truppen bekommen so viel leben, wie", "sie zerstoeren."}
        GabeKosten = 3
        Spezialgabekosten = 3
        Gaben = New String() {"Volle Salve", "Verjuengungs Angriff"}
        Synergie = New Decimal() {1, -1, -2, 0.5#}
        KONamen = New String() {"SONJA", "KANBEI", "MINAMOTO", "MARY"}
        Doppelgabenamen = New String() {"Revolution", "Doppel-Gabe", "Doppel-Gabe", "Doppel-Gabe"}
        Gabesaetze = New String() {"Begragbt diese Teile! Diese Panzer muessen repariert werden." _
                                   , "Bringt diese Maschinen zum laufen! Wir muessen weiter vorwaerts." _
                                   , "Jede Maschine hat eine Schwaeche. Man muss nur wissen wo!" _
                                   , "Du bist schlecht vorbereitet, wenn du mich schlagen willst." _
                                   , "Du magst glauben ich bin nur eine Schraube im Getriebe, aber ich werde dich jetzt besiegen..." _
                                   , "Zeit ihre Plaene zu durch kreuzen." _
                                   , "Mal sehen wie ihr reagiert wenn die Hammer fallen..."}
        Siegsaetze = New String() {"Meine Armee arbeitet wie eine gut geoelte Maschine." _
                                , "Nichts ist schoener, als seinen Gegner mit seiner eigenen Pistole zu erschiessen." _
                                , "Deine Armee ist dort draussen einfach umgefallen."}
        Tauschsaetze = New String() {"Sieht so aus als muessten wir da schnell was reparieren." _
                                    , "Ist unser Plan in Gefahr?"}
        Doppelgabesaetze = New DoppelGabesatz() {New DoppelGabesatz("SONJA", "SABAKI", "Wir bewahren den Frieden in Yellow Comet.", "Du hast es gut in Amber Corona haben wir keinen Frieden.") _
                                              , New DoppelGabesatz("SABAKI", "SONJA", "Lasst uns kaempfen fuer die Freiheit und gegen t es die Armut.", "Du hast hohe Ideale Sabaki!")}
        Niederlagesaetze = New String() {"Selbst meine Selbstheilung hat nicht geholfen.", _
                                        "Ich werde niemals aufgeben."}
    End Sub
End Class
